home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / sclean.arc / SCLEAN.BAS next >
Encoding:
BASIC Source File  |  1986-03-06  |  2.0 KB  |  40 lines
  1. 100 ' Program for creating SCLEAN.COM -- Michael F. Roberts
  2. 110 PRINT "Checking DATA statements, please wait..."
  3. 120 FOR B=1 TO 20 : FOR C=1 TO 17 : READ A$ : IF C<17 THEN 140
  4. 130 Z#=Z#+VAL(A$)
  5. 140 NEXT : NEXT
  6. 150 IF Z#=34390! THEN RESTORE : GOTO 170
  7. 160 PRINT "CHECKSUM ERROR -- CHECK TYPING AND REDO!":END
  8. 170 FOR B=1 TO 20 : FOR C=1 TO 16 : READ A$ : TTL=TTL+VAL("&H"+A$)
  9. 180 NEXT
  10. 190 READ S : IF S=TTL THEN 220
  11. 200 PRINT "DATA ERROR IN LINE";B*10+270
  12. 210 PRINT "CHECK FIGURES AND REDO" : END
  13. 220 TTL=0 : NEXT : RESTORE
  14. 230 OPEN "SCLEAN.COM" AS #1 LEN=1 : FIELD #1, 1 AS D$
  15. 240 FOR B=1 TO 20 : FOR C=1 TO 16
  16. 250 READ A$ : LSET D$=CHR$(VAL("&H"+A$))
  17. 260 PUT #1 : NEXT : READ DUMMY$ : NEXT : CLOSE
  18. 270 PRINT "SCLEAN.COM CREATED"
  19. 280 DATA EB,1F,90,44,65,6C,65,74,65,20,00,20,28,59,2F,4E,1323
  20. 290 DATA 29,3A,20,20,00,0A,0D,00,2A,2E,2A,00,00,00,00,3A,374
  21. 300 DATA 00,BF,80,00,8B,1D,32,FF,C6,41,01,00,FC,47,8B,CB,1721
  22. 310 DATA B0,20,F3,AE,E3,25,80,3D,3A,75,07,8A,45,FF,47,EB,2028
  23. 320 DATA 08,90,B4,19,CD,21,4F,04,41,A2,1E,01,89,3E,1C,01,1164
  24. 330 DATA BA,1E,01,52,80,C2,02,52,E8,02,00,CD,20,55,8B,EC,1636
  25. 340 DATA 83,EC,73,8B,D5,83,EA,71,B4,1A,CD,21,8B,1E,1C,01,1954
  26. 350 DATA E8,8B,00,33,C9,B4,4E,CD,21,72,43,BE,03,01,E8,A8,1894
  27. 360 DATA 00,8B,DD,83,EB,53,E8,75,00,8B,F2,E8,9B,00,BE,0B,2127
  28. 370 DATA 01,E8,95,00,B4,01,CD,21,8B,D8,BE,15,01,E8,89,00,1737
  29. 380 DATA 80,E3,DF,80,FB,59,74,07,80,FB,4E,74,0B,EB,CC,8B,2331
  30. 390 DATA D5,83,EA,40,B4,41,CD,21,B4,4F,CD,21,73,BD,BB,18,2137
  31. 400 DATA 01,E8,3A,00,B9,10,00,B4,4E,CD,21,72,2B,80,7E,AD,1572
  32. 410 DATA 2E,74,1F,80,7E,A4,10,75,19,BB,1B,01,E8,1F,00,52,1329
  33. 420 DATA 8B,D5,83,EA,53,52,E8,74,FF,8B,D5,83,EA,71,B4,1A,2521
  34. 430 DATA CD,21,B4,4F,CD,21,73,D5,8B,E5,5D,C2,04,00,8B,FD,2114
  35. 440 DATA 83,EF,40,8B,D7,8B,76,06,E8,15,00,C6,05,5C,8B,76,1856
  36. 450 DATA 04,E8,0C,00,C6,05,5C,47,8B,F3,E8,03,00,88,05,C3,1567
  37. 460 DATA AC,0A,C0,74,03,AA,EB,F8,C3,B4,02,8A,14,0A,D2,74,2017
  38. 470 DATA 05,CD,21,46,EB,F5,C3,00,00,00,00,00,00,00,00,00,988
  39. 480 END
  40.